5 CLEAR,40189:FORI=0TO768:POKE40190+I,PEEK(64670+I):NEXTI:POKE&H2073,&H9C:POKE&H2074,&HFE:CLS:PRINT"CARACTERE:0=FOND;1=COULEUR CODE ASCII>31"
10 INPUT"ASCII";A:IFA=0THENENDELSEFORI=1TO8:B=0:PRINT"L:";I;" ";:A$=INPUT$(8):PRINTA$:FORJ=0TO7:B=B+(ASC(MID$(A$,8-J,1))-48)*(2^J):NEXTJ:POKE40190+((A-31)*8-I),B:NEXTI:ATTRB1,1:PRINT:PRINTCHR$(A):ATTRB0,0:GOTO10